' This script executes a JavaScript. The script MosaicTiles.js is located in the JavaScript
' folder.

Private Sub Command1_Click()

Dim appRef As Photoshop.Application
Set appRef = CreateObject("Photoshop.Application")
appRef.DoJavaScriptFile ("MosaicTiles.js")
End Sub
